home *** CD-ROM | disk | FTP | other *** search
/ Strecken Planer 1997 / Strecken Planar 97.iso / HD Install < prev    next >
Text File  |  1996-10-25  |  2KB  |  137 lines
  1.  
  2. (set #AskDestDir
  3.  (cat "Bitte wΣhlen Sie das Verzeichnis, in dem der Streckenplaner "
  4.       "installiert werden soll. "
  5.       "Es wird automatisch ein neues Verzeichnis 'SPlaner97' "
  6.       "fⁿr das Programm und die Daten angelegt." )
  7. )
  8.  
  9. ;**** ask user where to put TurboCalc
  10.  
  11. (set DestDir
  12.  (askdir
  13.   (prompt #AskDestDir )
  14.   (help "")
  15.   (default "Work:")
  16.  )
  17. )
  18.  
  19. (complete 1)
  20. (set Src "SPlaner97:")
  21. (set Src_austria (tackon Src "austria"))
  22. (set Src_danmark (tackon Src "danmark"))
  23. (set Src_germany (tackon Src "germany"))
  24. (set Src_switzerland (tackon Src "switzerland"))
  25. (set Src_guides (tackon Src "guides"))
  26. (set Src_libs (tackon Src "libs"))
  27. (set Src_notes (tackon Src "notes"))
  28. (set Src_pics (tackon Src "pics"))
  29.  
  30. (complete 2)
  31. (set RealDest (tackon DestDir "SPlaner97"))
  32. (set Dest_austria (tackon RealDest "austria"))
  33. (set Dest_danmark (tackon RealDest "danmark"))
  34. (set Dest_germany (tackon RealDest "germany"))
  35. (set Dest_switzerland (tackon RealDest "switzerland"))
  36. (set Dest_guides (tackon RealDest "guides"))
  37. (set Dest_libs (tackon RealDest "libs"))
  38. (set Dest_notes (tackon RealDest "notes"))
  39. (set Dest_pics (tackon RealDest "pics"))
  40.  
  41. (if (= (exists RealDest) 0)
  42.  (makedir RealDest (infos))
  43. )
  44. (complete 3)
  45. (makedir Dest_austria)
  46. (makedir Dest_danmark)
  47. (makedir Dest_germany)
  48. (makedir Dest_switzerland)
  49. (makedir Dest_guides)
  50. (makedir Dest_libs)
  51. (makedir Dest_notes)
  52. (makedir Dest_pics)
  53.  
  54. ; *** copy main programm
  55.  
  56. (complete 5)
  57.  
  58. (copyfiles
  59.  (source Src)
  60.  (dest RealDest)
  61.  (pattern "SPlaner#?")
  62.  (infos)
  63. )
  64.  
  65. (copyfiles
  66.  (source Src)
  67.  (dest RealDest)
  68.  (pattern "map#?")
  69.  (infos)
  70. )
  71.  
  72. (complete 10)
  73.  
  74. (copyfiles
  75.  (source Src_austria)
  76.  (dest Dest_austria)
  77.  (all)
  78. )
  79.  
  80. (complete 15)
  81.  
  82. (copyfiles
  83.  (source Src_danmark)
  84.  (dest Dest_danmark)
  85.  (all)
  86. )
  87.  
  88. (complete 20)
  89.  
  90. (copyfiles
  91.  (source Src_germany)
  92.  (dest Dest_germany)
  93.  (all)
  94. )
  95.  
  96. (complete 25)
  97.  
  98. (copyfiles
  99.  (source Src_switzerland)
  100.  (dest Dest_switzerland)
  101.  (all)
  102. )
  103.  
  104. (complete 30)
  105.  
  106. (copyfiles
  107.  (source Src_guides)
  108.  (dest Dest_guides)
  109.  (all)
  110. )
  111.  
  112. (complete 35)
  113.  
  114. (copyfiles
  115.  (source Src_libs)
  116.  (dest Dest_libs)
  117.  (all)
  118. )
  119.  
  120. (complete 50)
  121.  
  122. (copyfiles
  123.  (source Src_notes)
  124.  (dest Dest_notes)
  125.  (all)
  126. )
  127.  
  128. (complete 80)
  129.  
  130. (copyfiles
  131.  (source Src_pics)
  132.  (dest Dest_pics)
  133.  (all)
  134. )
  135.  
  136. (complete 100)
  137.